home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / test 9 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  412b  |  15 lines
  1. 5 rem--ahoy!--june issue--memory management test 9--prog page 81
  2. 10 rem:for tape-save second
  3. 20 rem:memory management test 9
  4. 30 rem:loads into $c000 block in the    commodore 64
  5. 60 if peek(251)=1 goto 100
  6. 70 t9$="[147]test 9 now active":printt9$
  7. 80 poke 251,1:rem set load complete flag
  8. 90 goto 110
  9. 100 print t9$
  10. 110 print "enter 8[146] for test 8"
  11. 130 get in$:if in$=""goto130
  12. 140 in=val(in$)
  13. 150 if in<>8 goto 110
  14. 170 poke 44,8:goto 10:rem back to normal ram
  15.